object frmImagePreview: TfrmImagePreview Left = 364 Top = 102 HorzScrollBar.Visible = False VertScrollBar.Visible = False AutoScroll = False BorderIcons = [biSystemMenu] Caption = 'Preview' ClientHeight = 150 ClientWidth = 150 Color = clBtnFace Constraints.MinHeight = 100 Constraints.MinWidth = 100 DefaultMonitor = dmDesktop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Icon.Data = {} OldCreateOrder = False Scaled = False OnClose = FormClose OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object imgPreview: TEfImageEnView Left = 0 Top = 0 Width = 150 Height = 150 Cursor = crDefault Hint = 'Double-click to increase size limit, double-click+Shift to reduc' + 'e size limit' ParentCtl3D = False ScrollBars = ssNone Center = True AutoFit = True Align = alClient PopupMenu = pmnImage TabOrder = 0 OnDblClick = imgPreviewDblClick ScaleToFit = True end object pmnImage: TPopupMenu OnChange = pmnImageChange Left = 32 Top = 48 object smnFullSize: TMenuItem Caption = '&Full Size' Hint = 'Check this menu item to show image at full size' OnClick = smnFullSizeClick end object smnZoomIn: TMenuItem Caption = 'Zoom &In' Hint = 'Increase the size of the picture' OnClick = smnZoomInClick end object smnZoomOut: TMenuItem Caption = 'Zoom &Out' Hint = 'Decrease the size of the picture' OnClick = smnZoomOutClick end object N1: TMenuItem Caption = '-' end object Reload1: TMenuItem Caption = '&Reload' OnClick = Reload1Click end end object vclTimer: TEfTimer StopAfterDelay = False OnDelayOver = vclTimerDelayOver Left = 64 Top = 48 end end